home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Demos / AppMaker™ 1.5 DEMO / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_204_Window < prev    next >
Encoding:
Modula Implementation  |  1992-04-08  |  1.4 KB  |  55 lines
  1. (* %filename% -- window *)
  2. (* Created %date% %time% by AppMaker *)
  3.  
  4. (*    For most applications, your window will have custom view classes.    *)
  5. (*    This module provides a convenient place to put these classes.        *)
  6. (*    If you specify a custom classname for any view item, AppMaker will    *)
  7. (*    generate some skeleton code for that custom class.  It generates    *)
  8. (*    a declaration of that class with a fields method; it generates        *)
  9. (*    the body of the fields method; and AppMaker generates code for        *)
  10. (*    dead strip suppression.  For some view items, AppMaker generates    *)
  11. (*    other methods it knows you will need; for instance, for a             *)
  12. (*    TTextListView, AppMaker generates a GetItemText method.                *)
  13.  
  14. IMPLEMENTATION MODULE U%windname%;
  15.  
  16. FROM Object IMPORT
  17.     MEMBERTEST;
  18.  
  19. FROM UObject IMPORT
  20.     TObject;
  21. FROM UMacAppUtilities IMPORT
  22.     gDeadStripSuppression;
  23. FROM UMacApp IMPORT
  24.     TDocument, TWindow,
  25.     NewTemplateWindow;
  26. FROM ResourceDefs IMPORT
  27.     k%windname%ID;
  28. IMPORT
  29.     UAMLibraryM;
  30.  
  31. (*${QINSPECTOR*)
  32. FROM UMacAppUtilities IMPORT
  33.     bClass,
  34.     DoToFieldMETHOD;
  35. (*$}*)
  36.  
  37. %for each item gen classMethods%
  38. (*SEG AOpen*)
  39. (*----------*)
  40. PROCEDURE New%windname%    (itsDocument:    TDocument):    TWindow;
  41. VAR
  42.     theWindow:    TWindow;
  43. BEGIN
  44.     theWindow := NewTemplateWindow (k%windname%ID, itsDocument);
  45.  
  46.     RETURN theWindow;
  47. END New%windname%;
  48.  
  49. BEGIN
  50.     IF gDeadStripSuppression THEN
  51.         %for each item gen gDeadStripSuppression%
  52.  
  53.     END(*IF*);
  54. END U%windname%.
  55.